home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 September / 1984-09.d64 / begin corner 2_6 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  56 lines
  1. 10 rem computer inventory
  2. 20 c$(1)="commodore":c$(2)="radio shack"
  3. 30 c$(3)="texas instruments"
  4. 40 d$(1)="computers":d$(2)="peripherals":d$(3)="software"
  5. 50 print "[147]"
  6. 60 print tab(12)"** inventory **"
  7. 70 print "choose:"
  8. 80 for i=1 to 3:print tab(4)i;c$(i):next
  9. 90 print tab(5)"0 everything"
  10. 100 get a$:if a$<"0" or a$>"3" then 100
  11. 110 cc=val(a$)
  12. 120 print "choose:"
  13. 130 for i=1 to 3:print tab(4)i;d$(i):next
  14. 140 print tab(5)"0 everything":poke 198,0
  15. 150 get a$:if a$<"0" or a$>"3" then 150
  16. 160 dd=val(a$)
  17. 170 print "[147]"
  18. 180 tt=0
  19. 190 print c$(cc),d$(dd);""
  20. 200 restore
  21. 210 read c,d,item$,sn$,date$,cst
  22. 220 if c=10 then 310
  23. 230 if cc=0 then 250
  24. 240 if cc<>c then 210
  25. 250 if dd=0 then 270
  26. 260 if dd<>d then 210
  27. 270 c$=str$(cst)
  28. 280 print item$;tab(17);sn$;tab(27);date$;tab(39-len(c$));c$
  29. 290 tt=tt+cst
  30. 300 goto 210
  31. 310 t$=str$(tt)
  32. 320 print "total";tab(39-len(t$));t$
  33. 330 print "different category? (y/n)";
  34. 340 get a$:if a$="y" then 50
  35. 350 if a$="n" then 550
  36. 360 goto 340
  37. 370 rem inventory items
  38. 380 data 1,1,vic-20,v029972,1982,225
  39. 390 data 1,2,datasette,282754,1982,70
  40. 400 data 1,3,vicmon,,1982,60
  41. 410 data 1,1,commodore 64,p00144607,1983,345
  42. 420 data 1,2,1541 disk drive,k0177958,1984,250
  43. 430 data 1,2,1525 printer,5016223,1984,250
  44. 440 data 1,3,radar rat race,,1983,30
  45. 450 data 2,1,16k color,0024023,1982,620
  46. 460 data 2,2,ctr-80a recorder,,1982,56
  47. 470 data 2,3,color logo,,1983,55
  48. 480 data 2,3,videotex,,1983,40
  49. 490 data 3,1,ti-9/4,61205,1980,635
  50. 500 data 3,1,ti-99/4a,40102545,1982,425
  51. 510 data 3,2,ti recorder,025426,1983,60
  52. 520 data 3,3,attack,5159992,1983,35
  53. 530 data 3,3,munchman,9976273,1982,35
  54. 540 data 10,0,,,,0
  55. 550 end
  56.